10 N$="PRO*NAME":Z$=""
11 FORG=1TOLEN(N$)
12 IFMID$(N$,G,1)="*"ANDMID$(N$,G+1,1)<>""THEN14
13 NEXT:PRINT"DU DOEDEL !":PRINT"DAS IST DOCH NORMALES FORMAT !":END
14 REM
15 A$=LEFT$(N$,G-1)
16 B$=RIGHT$(N$,LEN(N$)-G)
17 REM
19 X=X+1
20 Z$=A$
21 FORG=1TOX:Z$=Z$+"?":NEXTG
22 Z$=Z$+B$
23 REM
24 OPEN2,8,2,Z$
25 IFST=0ANDX=16THENCLOSE2:END
26 OPEN15,8,15
27 INPUT#15,F,F$
28 CLOSE15:CLOSE2
29 IFFTHENIFX=15THENPRINTF$:END
30 IFFTHEN19
31 REM
32 REM ... AB HIER KAEME DANN EIN
33 REM ENTSPRECHENDER LADER.....!
34 REM